www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Install.asp
<html> <head> <META content=ywnt,云网互动影视管理系统 name=keywords> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>云网互动影视6.0--系统安装</title> <LINK href="admin/css/css.css" type=text/css rel=stylesheet> </head> <BODY leftMargin=0 topMargin=0 scroll=yes MARGINHEIGHT="0" MARGINWIDTH="0" onLoad="Install()"> <div align="center"><img src="top.gif" width="983" height="108" border="0"></div> <!--#include file="Conn.asp" --> <!--#include file="Function/Function.asp" --> <!--#include file="Function/Md5.asp" --> <% '=================================================================================================================== '软件名称:云网影视管理系统 'Copyright (C) 2002-2007 ywnt.net All rights reserved. '产品咨询QQ:489234,2813712 '程序版权:云网互动科技有限公司 '程序开发:云网互动科技有限公司 '官方网站:http://www.ywnt.net '郑重声明: ' 1、免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接,商业版本无此要求; ' 2、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息; ' 3、云网互动科技有限公司保留此软件的法律追究权利 '=================================================================================================================== Dim Rs,sql Select Case Request("Action") Case "Save" IF Request.Form("AdminName")="" Then Response.write "<script>alert('管理员名称不能为空!');location.href = 'javascript:history.go(-1)';</Script>" End IF IF Request.Form("AdminPassword")="" Then Response.write "<script>alert('管理员密码不能为空!');location.href = 'javascript:history.go(-1)';</Script>" End IF IF Request.Form("AdminPassword")<>Request.Form("AdminPassword2") Then Response.write "<script>alert('两次管理员密码不一直!');location.href = 'javascript:history.go(-1)';</Script>" End IF Response.write "<iframe name=web align=middle marginwidth=0 marginheight=0 hspace=0 src=""http://www.ywnt.net/InstallMun.asp?web="&NoSqlHack(Request.Form("weburltext"))&"&IP="&Request.ServerVariables("local_ADDR")&""" frameborder=no scrolling=no width=0 height=0></iframe>" Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Admin" Rs.open sql,Conn,1,3 Rs.addnew RS("AdminName")=NoSqlHack(Request.Form("AdminName")) RS("AdminPassword")=NoSqlHack(Md5(Request.Form("AdminPassword"),32)) RS("AdminGroup")=1 RS("AdminIPOff")=0 RS("AdminIP")="" RS("AdminLocks")=0 RS("AdminNote")="超级管理员" Rs.Update Rs.Close Set Rs = Nothing Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Config where ID="&NoSqlHack(Request.Form("ID")) Rs.open sql,Conn,1,3 RS("Weburl")=NoSqlHack(Request.Form("weburltext")) RS("WebName")=NoSqlHack(Request.Form("webnametext")) RS("WebLogo")=NoSqlHack(Request.Form("weblogotext")) RS("WebiInstallDir")=NoSqlHack(Request.Form("websetuptext")) Rs.Update Rs.Close Set Rs = Nothing Call Stepdel() Case Else Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select * from YWNT_TMS_Config" Rs.open sql,Conn,1,1 YWNT_TMS_ID=RS("ID") RS.close set RS=nothing End Select Sub Stepdel() On Error Resume Next Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Server.mappath("install.asp")) Then fso.DeleteFile Server.mappath("install.asp") fso.DeleteFile Server.mappath("top.gif") End If If Err.Number <> 0 Then Response.write "<script>alert('删除此安装文件(Install.asp)失败,错误原因:" & Err.Description & "<br>请手动删除此文件。');location.href = 'index.asp';</Script>" Err.Clear Exit Sub Else Response.write "<script>" Response.write "function Install()" Response.write "{ " Response.write "window.opener=null;" Response.write "alert('云网影视系统安装完毕');" Response.write "location.href = 'admin/admin_login.asp';" Response.write " } " Response.write "</script>" End If End Sub strInstallDir = Trim(Request.ServerVariables("SCRIPT_NAME")) strInstallDir = Left(strInstallDir, InStrRev(LCase(strInstallDir), "/"))%> <TABLE class=table height=197 cellSpacing=1 cellPadding=3 width="98%" align=center border=0> <TBODY> <TR> <TD class=xingmu colSpan=4>系统安装</TD> </TR> <form name="form" action="Install.asp?Action=Save" method="post"> <TR> <TD height=32 align="right" class="hback">管理员名称:</TD> <TD height=32 class="hback"><input name="AdminName" type="text" id="AdminName" size="40"></TD> </TR> <TR> <TD height=32 align="right" class="hback">管理员密码:</TD> <TD height=32 class="hback"><input name="AdminPassword" type="password" id="AdminPassword" size="40"></TD> </TR> <TR> <TD height=32 align="right" class="hback">重复密码:</TD> <TD height=32 class="hback"><input name="AdminPassword2" type="password" id="AdminPassword2" size="40"></TD> </TR> <TR> <TD height=32 align="right" class="hback">站点域名:</TD> <TD height=32 class="hback"><input name="weburltext" type="text" id="weburltext" value="<%="http://"&Request.ServerVariables("SERVER_NAME")%>" size="40"> (请使用http://标识),后面不要带"/"符号 </TD> </TR> <TR> <TD width="21%" height=32 align="right" class="hback">站点名称:</TD> <TD width="79%" height=32 class="hback"><input name="webnametext" type="text" id="webnametext" value="云网互动" size="40"></TD> </TR> <TR> <TD width="21%" height=32 align="right" class="hback">站点LOGO:</TD> <TD width="79%" height=37 class="hback"><input name="weblogotext" type="text" id="weblogotext" value="Logo.gif" size="40"></TD> </TR> <TR> <TD height=32 align="right" class="hback">站点安装目录:</TD> <TD class="hback"><input name="websetuptext" type="text" id="websetuptext" value="<%=strInstallDir%>" size="40"> 系统安装的虚拟目录</TD> </TR> <TR align="center"> <TD height=32 colspan="2" class="hback"><input name="ID" type="hidden" value="<%=YWNT_TMS_ID%>"> <input type="submit" name="Submit" value="安 装"> <input type="reset" name="reset" value="重 置"></TD> </TR> </form> </TBODY></TABLE> <%call connclose()%> </BODY></HTML>